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1 MODULE DBGNEXCTE (IDENT = ‘V04-000') = 


BEGIN 


' 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
NCE ae THE TERMS OF SUCH ot tcine’ AND WITH THE 


LE 
OTH ON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'® TRANSFERRED. 


!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:. eeePOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
See ARR AAAAEAHAAAARAAAAAAAAAEAAAAAA AEE TERRA AAAAARARAERARARAREReAAee 
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i 
5 } FACILITY: DEBUG 
; } ABSTRACT: 
3 : Contained in this module is the routine DBGSNEXECUTE_CMD which uses the 
03 : Literal value ot the verb node of the command execution tree to decide 
03 : which command execution network to invoke. In addition to this routine 
03 : which is the highest level command execution network, this module contains 
03 1 several routines which are used by more than one command execution network 
o7 } during command execution. 
seg ENVIRONMENT: VAX/VMS 
rb Bez : AUTHOR: David Plummer, CREATION DATE: 4/15/80 
45 045 ' VERSION: v02.2-001 
4 Boe8 ‘ 
“ 004 ' MODIFIED BY: : ; 
48 0048 ‘ Richard Title Sep, 1981 Added support for the TYPE verb. 
49 0049 ‘ RT Oct, 1981 Added support for the SEARCH verb 
50 0050 ‘ RT Jan, 19 Added support for the If verb 
51 0051 ! RT Jan, 19 Added support for the WHILE verb 
6 8236 ! RT Jan, 19 Added support for the REPEAT verb 
5 005 : RT Jan, 19 Added parameters to DBGSNCIS_ADD 
4 054 ‘ RT Feb, 19 Added support for EXITLOOP verb 
5 055 : RT Mar, 19 Added support for DEFINE command 
6 056 ‘ RT Apr, 19 Added support for DECLARE command 
57 0057 ' RT Apr, 198 Added support for SPAWN command 
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; é ! RT May, 19 secede support for ALLOCATE command 
3 : VJH Jul, 19 support for SYMBOLIZE command 
3 : RT Aug, 19 Changed GSNGET * ADDRESS o check 
s 6) : mplementation level 

; ¢ ! RT Sep, 19 Added support for UNDEFINE command 
oe : PS Oct, 19 Added support for CALL command 

3; & ! RT Dec, 19 Added support for ATTACH command 

; 6 } RT Feb, 19 Added support for DUMP command 

; 3 

$ 6 REQUIRE ‘SRC$:DBGPROLOG.REQ'; 

; 26 LIBRARY ‘LIB$:DBGGEN.L32'; 

ake FORWARD ROUTINE 

3 7 posene XECUTE CMD, ' Highest level execution network 

3 74 DBGSNCIS_A ! Adds a node to the 

3 75 DBGSNCIS— =OPENICF, ! Opens an icf node in the CIS 

Some DBGSNCIS_ REMOVE ' Removes a node from the CIS 

ee DBGSNGET “ADDRESS; i Obtains an Lvalue or Rvalue 


f 


XCTE 

viva tity 

: 79 1°41 EXTERNAL ROUTINE 

; 80 1g 1 DBGSDEF _PR EXIT, 

; «81 131 DBGSDEF ~SYM_ADD 

: ; 14 1 DBGSDEF ~SYM—F IND 

; 16 1 DBGSDEPOSIT: NOVALUE 

. & 1 1 DBGSEVALUATE: NOVALUE, 

: «BS 7 1 DBG INE : NOVALUE, 

; 6 18 1 DBGSGET_MEMORY 

; 19 1 DBG$GET~ TEMPMEM 

: 88 DBGSMAKE_VMS_DESC, 

; 90 : 1 DBGSNCOPY_DESC, 

: 91 1 DBGSNEXECOTE ALLOCATE, 

: 3 2 DBGSNEXECUTE-AT_SIGN, 

Pg 5 1 EXECUTE-ATTACH, 

> 9% 6 1 DBGSNEXECUTE CALL 

: 95 1 DBG$NE XE CUTE CANCEL 

; 96 8 1 DBGSNEXE CUTE DECLARE, 

= © 0229 1 DBGSNEXE CUTE DEFINE, 

: 98 0230 1 DBGSNEXECUTE DELETE, 

> 99 0231 1 GSNEXECUTE DUMP, 

: 100 0 : 1 DBGSNEXECUTE EDIT, 

: 101 0 1 DBGSNEXECUTE EXIT, 

: 108 4 1 DBGSNEXECUTE-EXITLOOP, 

: 10 0235 1 DBGSNEXECUTE FOR, 

: 104 0236 1 DBGSNEXECUTE GO, 

> 105 02 7 1 DBGSNEXECUTE HELP, 

: 106 0238 1 DBGSNEXECUTE_IF 

: 107 0239 1 DBGSNEXECUTE REPEAT, 

: 108 0240 1 DBGSNEXECUTE SEARCH, 

: 109 0241 1 DBGS$NEXECUTE SET, 

: 110 0 4g 1 DBGS$NEXE CUTE SHOW, 

: 111 0243 1 DBGS$NEXECUTE SPAWN, 

: 118 0244 1 DBGSNEXECUTE STEP 

: 11 0245 1 DBGSNEXECUTESYMBOLIZE, 

: 114 0246 1 DBGSNEXECUTE YPE 

: 115 0247 1 DBGSNEXE CUTE UNDEF INE, 

> 116 0248 1 DBGSNEXECUTE WHILE, 

> 117 0249 1 DBGSNFREE_DESC, 

: «118 0250 1 DBGSNGET_CVAL 

> 119 0251 1 DBGSNGET~SYMID, 

: 120 0 5 1 DBGSNGET "TYPE, 

> 121 0 53 1 DBGSNMAKE_ARG.VECT, 

: 4 é 54 1 DBGSNOUT INFO; 

: 4 0255 1 DBGSREL_MEMORY: NOVALUE, 

> 126 356 1 DBGSSCR-EXECUTE_DISPLAY CMD: NOVALUE, 
+ 125 57 1 DBGSSCRTEXECUTE SAVE CMD: NOVALUE, 
§ 6 38 1 DBGSSCRTEXECUTESCROCL_CMD: NOVALUE, 
re 59 1 DBGSSCR-EXECUTE-SELECT-CMD: NOVALUE, 
3 139 re : DBGS$STA_LOCK_SYAMID: NOVALUE; 
Sa 6¢ 1 EXTERNAL 

>: 131 63 1 DBGSGL_CISHEAD: REF CISSLINK, 
Bah g 64 1 DBGSGL~CIS_LEVEL 

; 1 65 1 DBG$GB-DEF OUT: VECTORC BYTE), 
.. @ 0 66 1 DBGSGL~SCREEN_ERROR, 

> 135 67 1 DBGSGL ~SCREEN-NOGO, 


AX=-11 
DEBUG. 


iss VS 


8 
fs $1984 01:44:1 Bliss-32 V4.0-74 Pp 
at) EE hi isacnencte 35,1 aoe 55 


' Procedure exit por @ procedures 


Add defined symbo 

Look up defined syevet 

Level 5 EXECUTE_DEPOSIT routine 
EXECUTE_EVALUATE routine 
EXECUTE_EXAMINE routine 

Allocate permanent memory 

Allocate temporary memory 

Convert Primary Descriptor to 

VAS Descriptor 

Copy a descriptor 

ALLOCATE command execution network 

@ filespec execution network 

ATTACH command execution network 

CALL command execution network 

CANCEL command execution network 

DECLARE command execution network 

DEFINE command execution network 

DELETE command execution network 

DUMP command execution network 

EDIT command execution network 

EXIT command execution network 

EXITLOOP command execution network 

FOR command execution network 

GO command execution network 

HELP command execution network 

IF command execution network 

REPEAT command execution network 

SEARCH command execution network 

SET verb execution network 

SHOW verb execution network 

SPAWN verb execution network 

STEP command execution network 

SYMBOLIZE command execution network 

TYPE command execution network 

UNDEF INE command execution network 

WHILE command execution network 

Release space for a descriptor ; 

Obtains a symbol's lvalue from a prim desc 


Obtain a symid List é 
Obtains a symbol's type form a prim desc 
Constructs a message argument vector 
Outputs an info message 

Release permanent memory 

Execute the DISPLAY command 

Execute the SAVE command 

Execute the SCROLL command 

Execute the SELECT command 

Lock a SYMID List 


Version 2 debugger head of command input stream 
Count of number of levels of . 

Old debugger output vector contro 

Screen error display pointer (or 0) 

Screen flag to turn off STEP and GO 


-——--——_ - --- - -—- -——- —- -—————- ———_— -- 
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3; 3 $8 1 DBGSGL_SCREEN_OUTPUT, 1s play pointer (or 9 
3 : § : DBGSGL_SCREEN_ SOURCE; ! Screen source display pointer (or 0) 
= 71 1 LITERAL 

3; 140 72 1 ALLOCATE_VERB = DBGSK_ALLOCATE_VERB, 

> (141 751 AT_SIGN_JERB = DBGSK_AT_SIGN VERB, 

; sg 7% 1 ATTACH VERB = DBGSK_ATTACH VERB, 

3 16 75 (1 CALL_ VERB = DBGSK-CALL_VERB 

: 164 7% 1 CANCEL_ VERB = DBGSK"CANCEL_ VERB 

> 1465 77 1 DECLARE VERB = DBGSK-DECLARE VER6, 

; 146 78 1 DEF INE_VERB = DBGSK_DEF INE_JERB, 

3 16 79 «1 DELETE VERB = DBGSK_DEL Uf VERB 

: 148 0 1 DEPOSIT_VERB = DBGSK-DEPOSIT_VERB, 

; 149 1 1 DISPLAY VERB = DBGSK"DISPLAY-VERB, 

; 150 82 1 DUMP _VE = DBGSK"~OUMP_VERB, 

3; 151 83 1 EDIT-VER = DBGSK“EDIT-VERB, 

 % ¢ 8 1 EVALOATE_VERB = DBGSK-EVALOATE VERB, 

; 85 1 EXAMINE VERB = DBGSK-EXAMINE VERB, 

> 154 8 86 1 EXIT VERB = DBGSK_EXIT VERB, 

3; 155 87 1 EXITCOOP_VERB = DBGSK-EXITCOOP_VERB, 

; 136 0288 1 FOR VERS = DBGSK-FOR_VERB, 

roy 0289 1 GO_VERB = DBG$K_GO_VERB 

; 158 0290 1 HECP_ VERB = DBGSK-HECP_VERB, 

3 «159 0291 1 IF_VERB = DBGSK"IF VE 

3 160 0 3 1 REPEAT VERB = DAGSK-REPEAT VERB, 

: 161 0293 1 SAVE_VERB = DBGSK~SAVE 

: 16¢ 0294 1 SCROCL_VERB = DBGSK-SCROCL_VERB, 

3 (16 9 95 1 SEARCH_VERB = DBGSK-SEARCH_VERB, 

: 164 1 SELECT- VERB = DBGSK"SELECT VERB, 

3; 165 0297 1 SET VERB = DBGSK"SET VER 

> 166 0298 1 SHOW_VERB = DBGSK-SHOO VERB 

> 167 0299 1 SPAWAR VE = DBGSK"SPAWN VERB, 

; 168 0300 1 STEP_VERB = DBGSK"STEP_VE 

3; 169 0301 1 SYMBOLIZE_VERB = DBGSK-SYMBOLIZE_VERB, 

; 170 0 0 1 TYP = DBGSK-TYPE_ VERB; 

: (171 0303 1 UNDEF INE VERB = DBGSK_UNDEFINE VERB, 

; ze Bane 1 WHILE_VERB = DBGSK_WHILE_VERB; 

ie BBY 

3 17? 309 ‘ The following macro verifies entrance to, or exit from an ICF. 
: 177 p 09 1 MACRO 

; 178 " 19 ! ICF_MESSAGE (PREFIX) = 

> 180 s } 1 1 BEGIN 

3; (181 m 0313 1 BIND 
; 18 M0314 1 ENTER_PHRASE = UPLIT BYTE(B, ZASCII ‘entering'), 
; 18> " 13 i EXIT_PHRASE = UPLIT BYTE(7, ZASCII “exiting”); 
: «185 ” 19 1 LOCAL 

: 186 A 18 PHRASE; 

3; «64188 i. 0 1 IF pretta EQ. 1 

; 189 L 7 on THE 

: 190 i, § 1 phrase = enter_phrase 

: 191 x 1 ELSE 

: 192 ™ 4 1 phrase = exit_phrase; 
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dbg$nout_info (dbg$_verifyicf, 3, .phrase, .fab_ptr(fab$b_fns], .fab_ptr([fab$l_fnaJ); ! Info messa 
END % ; 
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GLOBAL ROUTINE DBGSNEXECUTE_CMD (VERB_NODE_PTR, MESSAGE_VECT) = 
' 
FUNCTIONAL DESCRIPTION: 
DBGSNEXECUTE_CMD is the highest level command execution network. This 
routine examines the value of the verb node in the command execution 
tree to decide which DEBUG command is to be executed, and transfer to 
an appropriate subnetwork to perform the associated semantic action. 
FORMAL PARAMETERS: 
VERB_NODE_PTR = pointer to the head of the command execution tree 


MESSAGE _VECT = address of a longword to contain the address of 
@ message argument vector 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
unsigned integer longword completion code 

COMPLETION CODES: 
STSSK_SEVERE (4) - The specified command could not be executed 
STSSK_SUCCESS (1) - The specified command was executed 

SIDE EFFECTS: 
The semantic actions eye ee ty to the parsed DEBUG command are 
Oreered. ond output mey ve disployed fe the user ene written vos log 
file. - 


i 
] 
i o 
BEGIN 


Loc 


AL 
VERB_NODE : REF DBGSVERB_NODE; ! Command verb node 


: Check for a command to execute. 
if -VERB_NODE_PTR EQL 0 THEN RETURN STS$K_SUCCESS; 


Obtain the verb node and set the pointer to it to 0. 
verb_node = ..verb_node_ptr; 
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-verb_node_ptr = 0; 


Oon 


Now transfer control to the appropriate subnetwork and return 


9 : 
2 RETURN 
( CASE .VERB_NODE CDBGSB_VERB_LITERAL] FROM DBGSK_FIRST VERB 

9 TO DBGSR_LAST_VERB OF 
9 SET 

Callocate_verb] : 

dbg$nexecute_allocate (.verb_node, .message_vect); 
Cat_sign_verb] : 


dbg$nexecute_at_sign (.verb_node, .message_vect); 


Cattach_ verb) : 
dbgSnexecute_attach (.verb_node, .message_vect); 


Ccall_ verb) : 
dBg$nexecute_call (.verb_node, .message_vect); 


Ccancel_verb) : 
dbgSnexecute_cancel (.verb_node, .message_vect); 


PREPRESS 


Cdeclare_verb] : 
dbg$nexecute_declare (.verb_node, .message_vect); 
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Cdefine_verb) : 
dbgSnexecute_define (.verb_node, .message_vect); 


Cdelete verb] : 
dbg$nexecute_delete (.verb_node, .message_vect); 
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Cdeposit_verb]) : 
(dbgSdeposit(.verb_node);sts$k_success); 


SOO OOO 
Oo 


(dbgSexamine(.verb_node);sts$k_success); 


& 
STS$K_SOCCESS); 


9 & 

35 4 CDISPLAY_VERB): 

Se 3 (DBGSSCR_EXECUTE_DISPLAY_CMD(.VERB_NODE, FALSE); 
96 04 

97 04 Cdump verb) : 

4 04 dbg$nexecute_dump(.verb_node, .message_vect); 
00 4 Cedit verb) : : 

4 ne dbg$nexecute_edit(.verb_node, .message_vect); 
08 4 Cevaluate_verb) : 

Be ri (dbgSevaluate(.verb_node);sts$k_success); 

O¢ 4 Cexamine_verb) : 

08 

09 440 Cexit verb) : 

19 rh dBbg$nexecute_exit (.verb_node, .message_vect); 
12 44 Cexitloop_verb) : 


————— 
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dbg$nexecute_exitloop (.verb_node, .message_vect); 


mn 


Cfor_verb] : 
SbgSnexecute. for (.verb_node, .message_vect); 


{go_ : 
- a ag go (.verb_node, .message_vect); 


Chelp verb) : 
dBg$nexecute_help (.verb node, .message_vect); 


Cif. : 
at Rr if (.verb_node, .message_vect); 


Crepest verb) : 
<p repeat (.verb_node, .message_vect); 


E SAVE -CMD(.VERB_NODE) ; 


E SCROLL -CMD(.VERB_NODE) ; 


{Csearch_verb] : 
dbgSnexecute_ search (.verb_node, .message_vect); 
CSELECT_VERB): 
(Dabs sk SUCCESS) TE _SELECT_CMD(.VERB_NODE); 


Cshow_verb) : 
dBg$nexecute_ show (.verb_node, .message_vect); 


Cset_verb] : 
dbg$nexecute_set (.verb_node, .message_vect); 


Cspawn_verb) : 
dbg$nexecute_spawn (.verb_node, .message_vect); 


Cstep_verb) : 
dBg$nexecute_ step (.verb_node, .message_vect); 


Csymbolize_verb] : 
dbg$nexecute_symbolize (.verb_node, .message_vect); 


Ctype_verb) : 
» Nn ne SN type (.verb_node, .message_vect); 


Cundefine_verb) : 
dbg$néxecute_ “undefine (.verb node, .message_vect); 


Cwhile verb) : 
dbgsnexecute. while (.verb_node, .message_vect); 


CINRANGE, OUTRANGE) : 


_ 
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-Sep- 
cressege_vect = dbgtnaak 
-Fessage_vect = nmake_a 

. , UPLIT “Byte” 
sts$k_severe 
END; 
TES ); 
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(dbdg$_notimplan, 1, 
ti), $09F verb support’)); 


-TITLE 
~ IDENT 


-PSECT 


-BYTE 
ASCII 


DBGNEXCTE 
\v04-000\ 


DBGSPLIT,NOWRT, SHR, PIC,0 
17 
\full verb support\ 


DBGSDEF _PR_EXIT 
DBGSDEF “SY vA 
DBGSDEF~ “FIND 
DacsDEPOSIT- DBGSEVALUATE 
DBGSEXAMINE, DBGSGET_MEMORY 
ae 


DBGSN 
DBGSNEXE CUTE PEF INE 
SNEX E 


DBGSNEXECUTE-DELET 
DBGSNE XE CUTE— DUMP 
DBGSNEXECUTE EDIT 
DBGSNEXECUTE EXIT 
DBGSNEXECUTE-EXITLOOP 
DBGSNEXE CUTE FOR 
DBGSNEXE CUTE GO 
DBGSNE XE CUTE HELP 
BGSNEXECUTE—IF 
DBGSNEXECUTE REPEAT 
GSNEXECUTE SEARCH 
DBGSNEXECUTE-SET 
DBGSNEXE CUTE — SHOW 
BGSNE XE CUTE ~ SPAWN 
DBGSNEXE CUTE STEP 
DBGSNE XE CUTE SYMBOL I ZE 
GSNEXECUTE- TYPE 
DBGSNE XE CUTE UNDEF INE 
DBGSNEXE CUTE WHILE 
DBGSNFREE DESC, DBGSNGET_LVAL 
DBGSNGET SYMID. DBGSNGET_ “TYPE 
DBGSNMAKE_ARG_VECT 
DBGSNOUT_ INFO? DBGSREL_MEMORY 
DBGSSCR_EXE ECUfE DISPLAY. CMD 
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SHR, PIC,0 


«PSECT DBGSCODE,.NOWRT, 
Vv 


-ENTRY DOBGSNEXECUTE 
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14-Sep-1 1 DEBUG. SRC JDBGNEXCTE.B32;1 
50 04 0 $f move #4, RO 
oh a a a 
000000006 00 3 fe $ 8 CALLS ee. BBGSNEXECUTE_ALLOCATE 
a ts a am A 
000000006 00 0 fe 38 2 CALLS Hi BBGSNEXECUTE_AT_SIGN 
08 AC DD 0008D 5$: PUSHL SSAGE_VECT 
3 DD 8 PUSHL VERB_NODE 
000000006 00 fe 494 CALLS #2, BBGSNEXECUTE_ATTACH 
08 AC DD OO09A 6S: PUSHL MESSAGE_VECT 
52 0D 0009D PUSHL VERB NOBE 
000000006 00 0 re SOC CALLS #2, BBGSNEXECUTE_CALL 
08 AC DD OO0A7 7$: PUSHL MESSAGE_VECT 
56 DD OOOAA PUSHL VERE NOBE 
000000006 00 02 FB OOAG CALLS #2, BBGSNEXECUTE_CANCEL 
04 0008 RET 
08 AC DD 00084 8$: PUSHL MESSAGE_VECT 
52 DD 00087 PUSHL VERB NOBE 
000000006 00 0 re o08° CALLS #2, BBGSNEXECUTE_DECLARE 
08 AC DD 000C1 9S: PUSHL MESSAGE_VECT 
53 DD 000C4 PUSHL VERB NOBE 
000000006 00 FB BEDes CALLS #2, BBGSNEXECUTE_DEF INE 
04 000CD RET 
08 AC DD OOOCE 10S: PUSHL MESSAGE VECT 
36 DD 50001 PUSHL VERS NOBE 
000000006 00 02 FB 00003 CALLS #2, BBGSNEXECUTE_DELETE 
04 BO0DA RET 
000000006 00 ae Fe kOe tO CREES «WL OBGSBEPOSIT 
Hy 11 O00E4 BRB 17$ 
7E D4 Bones 12$: CLRL -(SP) 
52 DD OO0E8 PUSHL VERB_NODE 
000000006 00 be re Ooort CALLS #2, BBGSSCR_EXECUTE_DISPLAY_CMD 
08 AC DD OOOFS 138: PUSHL MESSAGE_VECT 
25 DD O00F6 PUSHL VERE NO 
000000006 00 0 4 pore CALLS #2, BBGSNEXECUTE_DUMP 
08 AC DD 00100 148: PUSHL MESSAGE_VECT 
53 DD 001 PUSHL vere NOBE 
000000006 00 0 re 1 2 CALLS #2, BBGSNEXECUTE_EDIT 
000000006 00 34 3 a = CALLS Wi DBGSEVALUATE 
oH 11 ari BRB 27$ 
000000006 ay Pe Boia oe EARLS 1 DOGSEXAMINE 
6F if $ 1 17$: BRB 7 
08 aS DD 4 3 18$: PUSHL MESSAGE _VECT 
52 DD 00126 PUSHL VERB_NODE 
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1b-sep=1 


14-Sep-1 

F 128 CALLS 
0 12F RET 
DD 00150 198: PUSHL 
1) 1 PUSHL 
F 1 CALLS 
0 13¢ ET 
DD 00150 208: PUSHL 
DD 0014 PUSHL 
FB 14 CALLS 
04 14 ET 
i) 14A 218: PUSHL 
DD 00140 USHL 
FB 14F CALLS 
04 136 ET 
DD 00157 22$: PUSHL 
DD OO15A PUSHL 
FB 3136 CALLS 
04 0016 ET 
DD 00164 23$: PUSHL 
DD Bhd PUSHL 
Fe 9199 CALLS 
04 pt 0 ET 
DD 00171 24$: PUSHL 
DD Bolte PUSHL 
FB 00176 CALLS 
04 00170 ET 
DD OO17E 25%: PUSHL 
FB 00180 CALLS 
11 00187 BRB 
DD dt 24 26$: PUSHL 
FB 8138 CALLS 
11 00192 27$: RB 
DD 00194 28$: PUSHL 
DD 00197 PUSHL 
FB 00199 CALLS 
04 He RET 
DD OO1A1 298: PUSHL 
fe O1A3 CALLS 
1) O1AA 30S: MOVL 
04 O01AD RET 
DD OO1AE 318: PUSHL 
DD 00181 PUSHL 
FB 00183 CALLS 
04 318A RET 
dD 1BB 32$: PUSHL 
DD 0018 PUSHL 
FB OOIC CALLS 
04 OO1C RET 
DD 001C8 338: PUSHL 
DD 001¢B PUSHL 
FB 001CD CALLS 
04 00104 ET 
DD 133 34$: SHL 
DD 0010 PUSHL 
FB 1DA CALLS 
04 001E1 ET 
DD OO1E2 35$: PUSHL 


Be 92:97:15 


AX-11 Bliss-32 vee 28s 
DEBUG. SRC JDBGNEXCTE .B32;1 


#2, DBGSNEXECUTE_EXIT 
MESSAGE _VECT 

VERE NOBE 

#2, BBGSNEXECUTE_EXITLOOP 
MESSAGE _VECT 

vere NOBE 

#2, BBGSNEXECUTE_FOR 
MESSAGE _VECT 

VERB NOBE 

#2, BBGSNEXECUTE_GO 
MESSAGE _VECT 

VERB NOBE 

#2, BBGSNEXECUTE_HELP 
MESSAGE _VECT 

VERe NOBE 

#2, BBGSNEXECUTE_IF 
MESSAGE _VECT 

VERS NOBE 

#2, BBGSNEXECUTE_REPEAT 
VERB_NODE 

oe BBGSSCR_EXECUTE_SAVE_CMD 
VERB_NODE 

#1, BBGSSCR_EXECUTE_SCROLL_CMD 
MESSAGE _VECT 

vere NOBE 

#2, BBGSNEXECUTE_SEARCH 
VERB_NODE 

#1, BBGSSCR_EXECUTE_SELECT_CMD 
#i, RO 

MESSAGE _VECT 

VERE NOBE 

#2, BBGSNEXECUTE_SHOW 
MESSAGE_VECT 

VERS NOBE 

#2, BBGSNEXECUTE_SET 
MESSAGE _VECT 

VERB NOBE 

#2, BBGSNEXECUTE_SPAWN 
MESSAGE _VECT 

VE RG NOBE 

#2, BBGSNEXECUTE_STEP 
MESSAGE _VECT 
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3; Routine Size: 


534 bytes, 


000000006 


000000006 


000000006 


000000006 


Routine 


ou 


00 


00 


00 


5 
08 
08 53 

0 
08 56 

5 

0 
08 53 

5 
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= 
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V 

Hee BSGSNEXECUTE_SYMBOLIZE 
MESSAGE_VECT 

vere NOBE 

#2, BBGSNEXECUTE_TYPE 
MESSAGE _VECT 

3 B_NOBE 

#2, BBGSNEXECUTE_UNDEF INE 
MESSAGE VECT 

Hy BBGSNEXECUTE_WHILE 


re 
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0495 


0498 
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mivantty 1ersee-18B2 FSiF5:}h «| YoRaLG. BAe Ssatees 
; 379 GLOBAL ROUTINE DBGSNCIS_ADD (POINTER, LENGTH, TYPE 
REPEAT_COUNT, WHILE_CLAUSE, LOOP_INCR) = 


FUNCTION 
This routine creates and adds a new Command Input Stream (CIS) eoeey 
to the Command Input Stream Stack. The global variable DBGS$GL_CISHEAD 
is set to point to the new CIS Entry so that ae commands are gotten 
from this new CIS Entry first. The forward Link in the new entry is 
set to contain the old value of DBGSGL_CISHEAD so that the previous 
CIS entry is restored once the new CIS entry is emptied of commands. 


INPUTS 
POINTER = The address of either a buffer or a RAB to be placed 
in the DSCSA_POINTER field of the new Link. 
LENGTH = The Length of the above buffer (0 for RAB). 
TYPE - The type of the Link to be added. 


REPEAT_COUNT = The count for a CIS of type CIS_REPEAT. For a CIS of 
type FOR, this contains the upper bound. 


WHILE_CLAUSE = A counted string with the action clause for a CIS of 
type CIS_WHILE. For a CIS of type FOR, this contains the 
name of the loop variable. 


LOOP_INCR = The loop increment in FOR Loops. 


OO 0000000000 C000 000000 


OUTPUTS 
This routine returns STSSK_SUCCESS as its value. 


So 


BEGIN 


AP 
WHILE_CLAUSE: REF VECTOR C,BYTE]; 


LOCAL 
FOR_LOOP_VAR, 


FOR_UPPER_BOUND, 
TEMP; 


! Points to counted string with FOR 

: loop variable 

' Integer with upper bound for FOR Loops 
! Temporary pointer to head CIS node 


FAN OO OONOA VE WN $9 ODNA UE WIN ( O ODNAUE WN (“OO ONOUS WN OO 


Increment the count of the number of levels of CIS we have. 
DBGSGL_CIS_LEVELS = .DBGSGL_CIS_LEVELS + 1; 


SOOONOVE WN S$ OVOONOUE WOO 


WAPOPOPONONPINININONINDS 2 2? PO OO On ee 


: Pick up the FOR-loop bounds if this is a FOR-loop CIS. 


FOR_LOOP_VAR = .WHILE CLAUSE; 
FOR-UPPER_BOUND = .REPEAT_COUNT; 


Wie 
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; “9 
3 28 
; 440 $ 
: 661 71 
; 464 ie 
: 44 57 

3; 446 ee 
3 «6445 75 
; 464 2f8 
3: 44 57 

3; 446 576 
3 6446 579 
; 450 Beet 
; 451 2) 
; 45 05 ¢ 
: 45 058 

3 4546 begs 
: 455 0585 
3 rt 0386 
; «45 058 

; 458 0588 
; 459 0589 
; 460 0590 
3 661 0591 
; 46 8236 
: 46 059 

: 464 0594 
: 465 0595 
; 466 B298 
: 467 059 

; 468 0598 
: 469 0599 
; 470 0600 
3: 471 0601 
; 47 pete 
3; 47 60 

3; 674 604 
; 475 05 
3; «47 Bg 
: the 060 

: 479 $e08 
; 480 0610 
; 481 bets 
; 482 612 
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1023801984 Ee DEBUG. SRC JDBGNEXCTE -83 31 


Save current List head and allocate a new one 


TEMP = ,DBGSGL_CISHEAD ; 
DBGSGL_CISHEAD~= DBGSGET_MEMORY ((CIS_ELEMENTS+3)/2UPVAL); 


DBGSGL-CISHEAD CCISSA_NERT_LINK] = . TEMP 
DBGSGL-CISHEAD CCISSALINPUT_PTR] = POINTER; 
DBGSGL-CISHEAD 


< CIS$8_ INPUT TPE) = , TYPE; 
DBGSGL_-CISHEAD CCISSWILENGTA = LENGTH; 


IF TYPE EQL CIS_REPEAT 
DBGSGL_CISHEAD CCISSL_REPEAT_COUNT] = .REPEAT_COUNT; 
IF TYPE EQL CIS_WHILE 
DBGSGL_CISHEAD CCISS$V_WHILE_FLAG) = .WHILE_CLAUSE; 
IF .TYPE EQL CIS_FOR 
THEN 
BEGIN 
DBGSGL_CISHEAD L_FOR_UPPER BOUND] = .FOR UPPER BOUND; 


CIS$ 
DBGS$GL-CISHEAD FEIS$A-FOR-LOOP. OAR = .FO 
DEGSGL_CISHEAD CISSL_FOR_LOOP_INCR] = .LOOP_INTR; 


! The fields INIT_ADDR and INIT_LENGTH are used to determine 
! how much storage to release for this buffer, since the pointer 
field is modified by the parser among others. 


DBGSGL_CISHEAD CCISSA_INIT_ADDR] = .POINTER; 

! If we are adding an input buffer add 1 byte to the length 

! to be released because we allocated an extra one so we could 
} guarantee a zero byte at the end of the string. 


if .TYPE EQL C1S_INPBUF 
THEN 


DBGSGL_CISHEAD CCIS$W_INIT_LENGTH) = .LENGTH + 1 
LSE 
DBGSGL_CISHEAD CCIS$W_INIT_LENGTH) = .LENGTH; 
RETURN STS$K_SUCCESS; 
END: 
003¢ 000 .ENTRY DBGSNCIS_ADD, Save R2,R3,R4,R5 
55 9900000 G 00 5E 0 0 MOVAB DBGS$GL_CTSHEAD, R5 
00000006 06 6 INCL  DBGSGL7CIS LEVELS 
53 1 aC : : F MOV REPEAT -COURT FOR_UPPER_BOUND 
65 D 13 MOVL  DBGSGLCISHEAD, TEMP 


“os 


ener 


Dp eME STE 


; Routine Size: 


01 
10 ad 
118 bytes, 


000000006 00 
6 


06 


02 


18 


Routine Base: 


A 
A 


2 


c 9 
16-Sep-1 
14-Sep-1 
fp ean 
D 1F 
BO 00056 
tom 
08 i 3 3 
85 33 o008A 
10 Bf BY booad 18: 
87 1 t Ree 
14 AC F 0046 
89 42 00080 - 
3 70 Mie 
18 AC 00 00056 
06 ac O 058 3$: 
51 Di 0006 
08 12 0006 
01 Ai 00065 
05 11 00068 
08 AC BO 00060 4$: 
01 00 44 5$: 
04 0007 


DBGSCODE + 0216 


4 01:46:17 AX-11 Bliss-32 V5.0-74 
38 Od s5i fh DEBUG. SRCIOBONENCTS. 65; 

PUSHL #14 

CALLS #1, DBGSGET_MEMORY 

MOVL RO DBGSGL CISHEAD 

MOVL TEMP, 8(ROY 

MOVL POINTER, 4(RO) 

MOVL TYPE, Ri 

MOVE RI, 2(RO) 

MOVW LENGTH, (RO) 

CMPL ORT, #4 

BNEQ ~=«'1$ 

MOVL § REPEAT_COUNT, 24(RO) 

CMPL SR, #5 

BNEG = 2$ 

INSV  WHILE_CLAUSE, #1, #1, 18(RO) 

CMPL R1, #7 

BNEQ 3$ 

MOV FOR UPPER BOUND 24(RO) 

MOVL LOOP_INCR (rb) 

MOVL POINTER, {27R0) 

CMPL sR, @ 

BNEQ 

ADDUS #1, LENGTH, 16(RO) 

MOVW LENGTH, 16(RO) 

MOVL #i, RO 


oo WN NN ONNVWG 
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cen. ROUTINE DBGSNCIS_OPENICF (MESSAGE_VECT) = 
i j PRT DESCRIPTION: 
Routine is called when there is a RAB at the top of the command 
input stream. It opens the related FAB and connects the RAB to it 
FORMAL PARAMETERS: 
message_vect - address of a longword to contain address of message vector 


sstatnans * INPUTS: 
The head of the command input stream 


IMPLICIT OUTPUTS: 

on failure, a message argument vector 
ROUTINE VALUE: 

sts$k_success (1) = action performed 


“ 
o 
Oe a at ed ed 


SPE EE 
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sts$k_severe (4) = failure 
SIDE eerecrst 
FAB 


totttattttctattatctctat cet 


is opened and a RAB connected to it. If SET OUTPUT VERIFY, then 


oO 
ao 


st : message is generated indicating we are entering an indirect command file 
064 BEGIN 

064 

064 

064 ASTAT ! Holds RMS status code 

064 FAB_ PTR : REF $FAB_DECL, i File access block pointer 

Ree RAB_PTR : REF S$RAB_DECL; ! Record access block pointer 


: , Extract the related FAB from the RAB at the top of the cis 


rab ptr = .dbg$gi_cishead Ccis$a_input_ptr); 
fab_ptr = — wit Crab$l_fab); — 


status = SOPEN (FAB=.fab_ptr); 
IF _ Status 


BEGIN 


1 CCAL 
: MSG_DESC : REF dbg$stg_desc; ! String descriptor for message 


Fe ot ot ot ot ot 
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msg_desc = dbg$get_tempmem (2); 


msg_desc(dsc$w_length] = .fab_ptr{fab$b_fns]; 
msg_descidsc$a_pointer) = .fab_ptr(fab$l_fna); 


o 
WS DONO UEWN—O OOno 


Flag Link for removal so we won't try to read from it again 
dbg$gl_cishead(cis$v_rem_flag) = 
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7 -message_vect = dbg$nmake_arg_vect (shr$_openin + dbg_fac_code, 
.msg_desc, -fab_ptr(fab$Si_sts], .fab_ptr(fab$l_stv)); 
ee RETURN sts$k_severe; 
7 END; 
7 
5 Connect the RAB to the just opened FAB 
1 Status = SCONNECT (RAB=.rab_ptr); 
¢ If NOT .status 
4 BEGIN 
5 LOCAL 
MSG_DESC : REF dbg$stg_desc; ! string descriptor for message 
bs msg_desc = dbg$get_tempmem (2); 
90 wog.dosch dociu. length = .fab_ptr(fab$b_fns]; 
$3) msg_descldsc$a_pointer] = .fab_ptrlfab$l_fnal: 
9 
Be } Flag Link for removal so we won't try to read from it again 
%6 dbg$gl_cishead(cis$v_rem_flag] = 1; 
0698 -message_vect = dbg$nmake_arg_vect (shr$_openin + dbg_fac_code, 
mq esc 
.fab_p effabét sts) 
.fablptr(fab$l“stv]); 


RETURN sts$k_severe; 
END; 


68 
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; 
i 
i 
i 
86 


: 
: 


SSNS 


Seer 


3 Check for verification message. 
0 iF .dbg$gb_def_out Cout_verify] 
1 THEN 
§ icf_message(1); 
: RETURN sts$k_success; 
87 6 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


8 
-ASCII yontoring\ 


67 6E 69 72 65 7% 6€ es 
65 “ASCII \exiting\ 


67 6€ 69 74 69 78 
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16-Sep-1984 01:44:1 AX-11 Bliss-32 V4.0-74 
18-808-1 382 On 95: 44 DEBUG. SRC SacneNcte $5; 1 
ENTER_PHRASE= P.AAB 
EXIT_PHRASE= P. AAC 
sEXTRN SYSSOPEN, SYSSCONNECT 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
003¢ .ENTRY DBGSNCIS_OPENICF, Save R2,R3,R4,R5 
5 000000006 09 3 A5VAB DBGSGL_CISHEAD, RS 
65 0D MOVL  DBGSGL-CISHEAD, 
94 AO D MOVL  4(RO), “RAB_PT 
cs b0 able mov GOCRAB PTRY, FAB_PTR 
000000006 90 é § 16 CALLS #1, SYSSOPEN 
4 0 pO 00010 VL RO, STATUS 
2 3 a 
000000006 00 1 F $9 CALLS #1, SYSSCONNECT 
4 0 pO 0002C VL —_ RO, STATUS 
6 4 £8 O002F BLBS STATUS, 2$ 
02 DD 00032 1$: PUSHL #2 
000000006 00 01 FB 99 CALLS #1, DBGSGET_TEMPMEM 
60 34 A2 98 00038 MOVZBW 52(FAB_PTR)> (M $C) 
046 Ad ns 4 003F VL 44(FAB_PTR), 4(MSG_DESC) 
51 65 DO 00044 VL DBGSGL CISHEAD, R1 
12 «Al 01 88 00047 BISB2 #1, 18TR1) 
7E 08 Ag D 00048 VQ 8 (FAB PTR), =(SP) 
50 DD 0004 PUSHL MSG_DESC 
01 DD 00051 PUSHL #1 
00021098 8F DD 00053 PUSHL #135320 
000000006 00 95 FB 00059 CALLS #5, DBGSNMAKE ARG_VECT 
04 BC 0 00 00060 MOVL RO, @MESSAGE_VECT 
0 04 00 00064 MOVL #4, RO 
04 00067 RET 
1F 000000006 00 E9 90068 28: BLBC  $DBGSGB_DEF_OUT+2, 3$ 
50 00000000' EF 9E 006 MOVAB ENTER PHRASE, PHRASE 
¢ A2 0D 00076 PUSHL  44(FAB_PTR) 
7E 4 A2 9a 00079 MOVZBL 52(FAB-PTR), -(SP) 
50 DD 00070 PUSHL PHRASE 
0 DD 0007F PUSHL 
00028088 8F OD 00081 PUSHL #163979 
000000006 00 05 FB 0087 CALLS #5, DBGSNOUT_INFO 
50 1 DO OOO8E 3$: MOVL #1, RO 
04 00091 tie 


; Routine Size: 146 bytes, Routine Base: DBGSCODE + 028C 


; 588 0717 #1 
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GLOBAL ROUTINE DBGSNCIS_REMOVE(EXIT_FLAG, MESSAGE_VECT) = 
FUNCTIONAL DESCRIPTION: 
Removes the top Link from the command input stream and delete the 
storage for it. If the Link has additional dynamic storage related to 
it, such as a FAB,RAB, input buffer etc., that storage is freed also. 
FORMAL PARAMETERS: 
EXIT_FLAG - TRUE if this routine is called from EXIT or EXITLOOP. 


MESSAGE _VECT - The address of a longword to contain the address of 
a@ message argument vector. 


—> + 


MEUM —COGNOU FS Ut O0@ 


IMPLICIT INPUTS: 
The head of the command input stream. 
IMPLICIT OUTPUTS: 


See S SSeS SSCL OSES SS 
CDOOCOCOCOCOCOCOCOCOCOC COCO COCOOCOCOCOCOCOOOOCOOOOCOOOOOOOOoOOoOoOo 


6 
609 
219 3 On error, a message argument vector is constructed and returned. 
ol¢ aa ROUTINE VALUE: 
ete tg STSSK_SUCCESS (1) = Success. Actions performed. 
618 oe STSSK_SEVERE (4) = Failure. Error message argument vector constructed. 
618 reg SIDE EFFECTS: 
619 74 The head of the command input stream is reset to what was the 
620 748 “‘next’’ Link before this routine was called. If SET OUTPUT VERIFY, 
621 749 then a message is generated saying we are exiting the indirect 
6 ¢ 750 command file. 
$54 433 
2 2 738 BEGIN 
e3 755 LOCAL 
628 736 BOUNDS_MATCH, ' TRUE when FOR Loop lower bound matches upper bound 
BUFLIST: REF VECTORC), ! 
8 COND, ' TRUE or FALSE: condition value in WHILE cis 
9 DUMMY, ' dummy output parameter 
GLOBAL FLAG, ' output param for DEF _SYM_FIND 
IND, ' kind of define symbo 
LOOP_INCR, ' the loop increment 
NEW_RAME ! Pointer to the loop variable name 
NEW"VALPTR: REF DBGSVALDESC,! pointer to a value descriptor 
S12 I Size of Loop variable name 
SYMIO_LIST, i List of symids 
TEMP, } eqaporary potater to cis node 
e e 


TYPE ' cis n yp 

VALPTR: REF DBGSVALDESC,! pointer to a value descriptor 
Vv P ' value in value descriptor 
VARNAME :REF VECTORC,BYTE),! name for FOR loop var 

WHILE _FLAG; ! TRUE for WHILE cis 
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vivant ereeeni8ke PSit5i1h — EBkaue Bhi sbeanekcte oss. ve 8) 
: 667 775 
: ote ore } Decrement the count of the number of CIS levels we have. 
3 i 18 DBGSGL_CIS_LEVELS = .DBGSGL_CIS_LEVELS - 1; 
: 6 780 
: 638 f 1 If top Link is an input buffer, release the storage for that buffer. 
3 639 , § iF jDBGSGL_CISHEADCCISSB_INPUT_TYPE] EQL CIS_INPBUF 
; H g ‘ DBGSREL_MEMORY( .DBGSGL_CISHEADCCISSA_INIT_ADDR)); 
: 6 ? 
; 660 7 3 ! Also release storage for any other buffers that may have been 
; 661 078 ' allocated fur ing processing of this Line (new buffers get allocated 
: 666 Boot } when symbols defined by DEFINE/COMMAND are expanded). 
> 664 0798 BUFLIST = .DBGSGL CISHEADECISSA_BUFLISTI; 
; 665 079 WHILE .BUFLIST NEG 0 DO 
; 666 0794 BEGIN 
3; 667 0795 DBGSREL _MEMORY ( ByFLESTEN); 
; 668 079 TEMP = -BUFLISTLO); 
; 669 079 DBGSREL_MEMORY(.BUFLIST); 
; 670 0798 BUFLIST = . TEMP; 
; 671 0799 END; 
: 67 0800 DBGSGL_CISHEADCCIS$A_BUFLIST) = 0; 
3 67 0801 
; 674 080 
3; 675 080 ! If the top Command Input Steam Entry is a SCREEN CIS Entry, we must reset 
; 676 0804 ! the screen displays to which print, source, and error output are directed 
3; 677 0805 ! to be the same as they were before this C1§ Entry was added to the Command 
; 678 pane ' Input Stream. We also reset the NOGO flag which disables STEP and GO 
; th e434 } commands inside screen display DEBUG command Lists. 
: 681 0809 if -DBGSGL_CISHEADCCISSB_INPUT_TYPE] EQL DBGSK_CIS_SCREEN 
3 ret 0810 THEN 
; 68 0811 BEGIN 
3; 6846 Bais DBGSGL_SCREEN_NOGO = .DBGSGL_CISHEADCCIS$V_SCREEN_NOGO); 
; 685 081 DBGSGL_SCREEN_OUTPUT = .DBGSGL_CISHEAD C1S$L_SCREEN_ OUTPUT]; 
; 686 0814 DBGSGL_SCREEN_SOURCE = .DBGSGL_CISHEAD CF eet ase RECN AD OURCE g 
3; 687 0815 DBGSGL_SCREEN_ERROR = .DBGSGL_CISHEADLCISSL_SCREEN_ERROR); 
; 688 pate END; 
: 689 081 
: 690 pais 
; «4691 1 ! Unless we are exiting a loop or an indirect command procedure, handle 
: 4 O8 y } the various looping constructs that have CIS entries. 
: 69% 8 : if NOT .EXIT_FLAG 
3; 695 THEN 
3 298 4 BEGIN 
ets 3 
: 344 ; : If the top Link is a FOR CIS, then increment the FOR-loop counter. 
; 701 IF .dbg$gl_cishead(cis$b_input_type) EQL cis_for 
; H 3 rat g$gl_ put_typ 
; 70 0831 4 BEGIN 


y 
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3 4 

; f 5 g ? bounds_match = FALSE; 

; A 5 ? Look up the loop counter. 

: 109 5 4 varname = -dbgsol_¢ cishead Ccis$a_for_loop_vardj; 

: 710 8 4 loop_incr = .dbg$gl_cishead Ccis$l_for_loop_incrd; 

; 711 4 IF dbg$def_sym_find™(.varname, kin 

; ar 40 4 valptr, global_flag, .message_vect) 

; at 41 4 THEN . 

; ay ‘8 ; Hagt tne EQL define_value 

; ah B45 6 BEGIN 

: a oBe9 § yelve = .loop_incr + .valptr Cdbg$l_value_value0); 

: 720 0848 IF (, Loop. incr GTR 0 

: 721 0849 7 AND .value GTR . bg$gl_cishead(cis$l_for_upper_bound]) 
. F ; 0850 7 OR (.loop_lincr L 

3 tg? th i AND -value LSS .dbg$gl_cishead(cis$l_for_upper_bound)) 
; 135 Opes 6 bounds_match = TRUE 

me $ 0854 8 ELSE 

: Se opse a 

: 729 0857 7 ! Copy the value descriptor. Fill in the new incremented 
; 730 0858 7 ‘ value into the copy. Save away the copy as the new 
; ie} O82 4 ; definition. 

; 738 Bees f if Nor dbg$nget_symid (.valptr, symid_list, .message_vect) 
: 735 te 7 RETURN sts$k_severe; 

3 4 $ +44: 4 a dbg$ncopy_desc (.valptr, new_valptr, .message_vect) 
: 738 0866 7 RETURN sts$k_severe 

; 739 0867 7 dbg$sta_lock 5S mid ( (esyaid. list); 

: 740 0868 7 ony qvalotr d6 8 L_value_valie0) = .value; 

3: 741 0869 7 ! ATso copy t : fame. 

; «74 0870 7 ney. name = dbg$get_ eenory (1+, varname(0]/4); 

3 74 0871 7 e (1+. varname(0) o  vername. new. name); 

3 744 pers 7 iF peasy dbg$def_sym_add (.new_name, define_value, 

3 a th — new _valptr, “FALSE, dummy, .message_vect) 
: 747 875 7 RETURN sts$k_ betye' tine 

3: 7% 0 a 7 dbg$gl_cishead ([c 

; 4 + 1h 4 aatat ¢} hea Upcisgead Cass init length]; 

3 cis oe cis$a u 

3; 751 79 7 “es dBg$gl_cishead ices Pit. “addr); 

; 0 7 RETURN Stash. success; 

; © 1 g END; 

: 738 $2 enn; 0 

> 75 4 ‘ 

s 4 5 4 ! Copy the loop variable name into temporary memory. 

3 38 $ ? This is for error-message purposes. 

: 760 B 4 size = .varname(0); 
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; 761 89 4 varname = dbg$get_tempmem (1+.size/4); 

; 76 90 4 ch$move (1+.size, .dbg$gl_cishead cis$a_for_loop_var], 

3 St 4! ? -varname); 

: 765 38 4 ! If we fall through to here, we are exiting the loop for 

3 re8 94 4 ! some reason. 

3 fe 95 2 Release the space for the loop counter name. 

3 re 4 ? dbg$rel_memory (.dbg$gl_cishead Ccis$a_for_loop_var]); 

; 771 899 4 ! If bounds_match is false, we are exiting the loop not because 
; ure 900 4 ! the lower beune has matched the upper bound, but rather because 
.. ie 901 4 ' the loop variable had been redefined. 

: 774 sit 4 ; 

3; 775 903 4 IF NOT .bounds_match 

; r7e 904 4 

: oF 344 oe SIGNAL (dbg$_loopvar, 1, .varname); 

; 778 9 END; 

: 779 090 

3 re 944 If the top Link is a repeat cis, then decrement the count. 

; 78 0910 if .dbg$gl_cishead(cis$b_input_type] EQL cis_repeat 

; 78 0911 then oe cane 

; 784 pate 4 BEGIN 

: 785 0913 4 dbg$gl_cishead Ccis$l_repeat_count] = 

; ree gate ? -dBg$gl_cishead (Zis$l_répeat_count] - 1; 

: 788 3318 4 ! If the repeat count is greater than zero, reset the cis 

3 444 44 FA ? } to the beginning of the action buffer. 

3; «(791 0919 4 IF .dbg$gl_cishead Ccis$l_repeat_count] GTR 0 

3; 77 base 4 THEN 

; 79 88 1 : BEGIN 

3 794 356 dbg$gl_cishead Ccis$w_length) = 

3; 795 09 5 -dbg$gl_cishead (cis$w_init_length); 

; 96 0924 5§ dbg$gl_cishead Ccis$a_input_ptrJ = 

: 79 0925 2 -dbg$gl_cishead (Cis$a_Tnit_addr); 

; 798 09 § RETURN sts$k_success; 

; 799 09 4 END; 

; 800 0928 4 

; 801 83 9 END; 

; 80 930 

; 80 931 END; 

: BOs 338 

; 806 09 ! If the top Link is a WHILE, or a REPEAT whose count has gone to zero, 
; 807 0935 ' an IF CIS, a FOR CIS, or a SCREEN CIS, then release storage for the 
; 808 b38$ i action buffer. Here we subtract two from the address because storage 
; 10 34 , was allocated as a counted string and included the count word. 

: 811 339 iF .OBG$GL_CISHEADCCISS$SB_INPUT_TYPE) EQL CIS_WHILE OR 

; ig 40 -DBGSGL_CISHEADLCISSB_INPUT_TYPE] EQL CIS_REPEAT OR 

; «81 941 -DBGSGL_CISHEADCCISSB_INPUT_TYPEJ EQL CIS_IF 

: 814 94 -DBGSGL_CISHEAD(CISSB_INPUT_TYPEJ EQL CIS_FOR 0 

; 2 eer “eo CISSB_INPUT_TYPEJ EQL CIS_SCREEN 

; B19 945 DBGSREL_MEMORY( .DBGS$GL_CISHEADCCISSA_INIT_ADDR] = 2); 
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WOe"606 at 7 03: 953] DEBUG. SRC IDBGNEXCTE .B3 37 . (3) 
: 1 94 
3 8 309 
3 0 ar8 ! If top Link is a RAB, release the storage for the FAB, RAB and the 
; 1 2¢8 buffer that holds the indirect command filespec. 
3 H : 34 IF .DBGSGL_CISHEADCCISSB_INPUT_TYPE] EQL CIS_RAB 
; 4 326 THEN 
3 5 9 BEGIN 
3 : 954 
; 955 LOCAL 
; 828 B29 FAB_PTR : REF SFAB_DECL, ! File access block pointer 
3 : 2 4h: RAB_PTR : REF SRAB_DECL; ! Record access block pointer 
; 831 0359 RAB_PTR = .DBGSGL_CISHEAD C SSSA, SP Press 
; 8 ¢ 960 FAB_PTR = -RAB_PTR $L_FAB); 
; 833 0961 IF =DBGSGB_DEF-OUT CouT_VERIFY) 
; B3¢ $3e8 ICF MESSAGE (2); ! Exiting the ICF 
; 836 0964 
3; 837 0965 
; 838 0966 ' Release the filespec buffer. Remember this is a counted 
3 44 0967 ! string so the address and length have to be adjusted to 
$ 0 0968 ' include the count. 
3; «841 0969 ' 
; Bie 9970 DBGSREL_MEMORY (.FAB_PTRCFABSL_FNAJ-1); 
3 Rei 097 
; 845 097 ' CLOSE and DISCONNECT 
3 Pk 0974 ! 
3 7 0975 SCLOSE (FAB=.fab_ptr); 
3; 848 0976 
; 849 0977 dbg$rel_memory (.rab_ptr); 
3 Bee 344 dbg$rel_memory (.fab_ptr); 
3 826 Rpey Release the space taken up by the local define List. 
; 854 3404 IF NOT dbg$def_pr_exit (.message_vect) 
3 Be? 8 THEN 
; 856 984 RETURN sts$k_severe; 
3; 857 0985 
: 858 986 END; 
: £23 987 
; 860 0988 If NOT .exit_flag 
: 36) 989 THEN 
3 ¢ 990 BEGIN 
: Bea 0993 
; 865 44d For a WHILE CIS, find out whether the condition is still true. 
; seo 995 if, eoatel cisheod Ccis$b_input_type] EQL cis_while 
; Boo 997 4 BEGIN 
; 870 998 4 wane (32 = TRUE; : 
3; «871 4 cond = .dbg$gi_cishead [cis$v_while_flag); 
; 6 890 4 END 
: 87 1001 ; ELSE 
3; 874 1002 while flag = FALSE; 
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END; 
} Remove the Link from the command input stream 
temp = dbgSgl_ cishead ; 
dbg$gl_cishead™= "taviel x heet Ccis$a_next_link]; 
Now release the storage for the Link itself 
dbg$rel_memory (.temp); 
4 NOT .exit_flag 
If the cis is a WHILE, then set up the top cis for another iteration. 
if .while_flag 
THEN 
IF .cond 
THEN 
BEGIN 
dbg$gl cisheod ¢ fctste. input_ 
-d5g$gl_cishead cis aw ite. cleus): 
dbgsal te} Ccis$w_length 
dbg$gl_cishead teisse ‘while length); 
RETURN sts$k_success; 
END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
08 00023 P.AAD: .BYTE 8 3 
67 6€ 69 72 65 74 6E€ 65 00024 ASCII \entering\ 5 
07 Bn C P.AAE: .BYTE 3 
67 6€ 69 74 69 78 65 0002D eASCII \exiting\ : 
ENTER_PHRASE= P.AAD 
EX1T_PHRASE = P.AAE 
-EXTRN SYSSCLOSE 
-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
OFFC 00000 -ENTRY pacsweis REMOVE, Save R2,R3,R4,R5,R6,R7,R8,- : 0718 
2 000000006 9 9E 000 MOV D Séscu eISHEAD, R11 
E C 3 SUBL #24, SP : 
000000006 00 »D Dect’ DaGE$GL _CIS_LEVELS 3; 077 
68 B9 1 MOVL vente LG ISREAD. RO ; 078 
0 02 A 1 CMPB : 
OA 12 1 BNEQ : 
0c ad 0D 18 PUSHL 12(RO) ; 0785 
000000006 00 01 FB OOOIE CALLS #1, DBGSREL_MEMORY ; 
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egos 1o-808- 1382 b5i 18 DEBUG. SRCJDBGNEXCTE.B 53351 ° (3b 
6B D 1$: MOVL  DBGSGL CISHEAD RO : 0792 
3 30 i 09 A MOVL a8 CRO); BUFLIST : 
oc op BE BER, Hours 8 
000000006 00 0 FB 0 f CALLS #1, DBGSREL_MEMORY : 
SA 68 p 0 a OVL  (BUFLIST), TEMP : 07 
D B PUSHL BUFLIST : 079 
000000006 99 gi FB 0 D CALLS #1, DBGSREL_MEMORY : | 
A DO 00044 MOVL TEAP, BUFLIST + 0798 | 
€3 11 0047 BRB 2 + 079 
50 6B DO 00049 3$ MOVL DBGSGL CISHEAD, RO + 0800 
39 A ps D040 CLRL © 48 (RO) * : | 
08 A 91 O04 CAPE (RO), a8 + 0809 
000000006 00 12 a0 01 03 EF boss EXTZV #2, #1, 18(RO), DBGSGL SCREEN, NOGO : 0812 | 
000000006 00 4 AO DO 0005F MOVL  § 36(RO), DBGSGL_SCREEN_OUT : 0813) 
000000006 00 8 AO 00 00067 MOVL  40(RO), DBGSGL-SCREEN- SDURCE + 0814 
000000006 00 C Aad 00 O06F MOVL  44(RO), DBG$GL-SCREEN-ERROR + 0815 
03 4 ac 59 0077 4$ BLBC = EXIT_FLAG, 5$ ~ + 0822 
0121 31 00078 BRW 16$ : 
07 02 AQ 91 OO07E 5$ CMPB  =s-_«2(RO),, #7 + 0829 
03 13 00082 BEQL 4§=««46$ : 
OOFE 31 00084 BRW 14$ : 
59 D4 00087 6$ CLRL _ BOUNDS_MATCH : 0833 
57 1¢ AO 00 00089 MOVL g8(RO) VARN. + 0837 
53 20 Ad DO 0008D MOVL 2(RO), LOOP_INCR : 0838 
08 AC DD 00091 PUSHL MESSAGE_VECT + 0840 
04 AE 9F 00094 PUSHAB GLOBAL_FLAG : 0839 
OC AE 9F 00097 PUSHAB VALPTR : 
14 AE 9F OOO9A PUSHAB KIN ; 
57 DD 0009D PUSHL NAME : 
000000006 00 0S FB 0009F CALLS a DGSDEF _SYM_F IND : | 
2c 50 €9 000A6 BLBC ; 
05 08 AE 01 000A9 CMPL eho. +45 > 0843 | 
26 if 000AD BNE 9s ; 
52 04 AE D BO0ar MOVL R2 + 0847 | 
54 5 20 A2 C1 00083 ADDL3 2th2). LOOP_INCR, VALUE : 
53 D5 00088 TSTL LOOP INCR ; 0848 | 
09 15 OO0BA BLEG : | 
50 B vO 0008C MOVL DBGSGL. 1SHEAD, RO > 0849. 
18 AO 4 D1 000BF CMPL = VALUE, ~24(RO) F 
op 14 b00¢ BGTR : 
DS 000C5 7s: TSTL OP. INCR + 0850 
0€ 1 990¢ BGEG 0$ ; 
50 B D 9 MOVL PBGSGL_ ISHEAD, RO > 0851 
18 AO 4 D1 000C CMPL UE, 724(RO) : 
05 1 0D BGEQ 3 
59 j p Op gs: MOVL #1, BOUNDS_MATCH + 0853 
08 AC po 8p 158: PUSHL MESSAGE_VECT : 0861 | 
A F ROA PUSHAB SYMID_LTST : 
52 OD 00000 PUSHL R ; 
000000006 90 ! F ODF CALLS 3. DBGSNGET_ SYMID : 
E ES BLBC ; 
08 AC DD O00E PUSHL ile VECT > 0864 
14 AE F OOOEC PUSHAB NEW_V ALPTR : 
52 DD OOOEF PUSHL R : 
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000000006 0 F F1 CALLS #3, DBGSNCOPY_DESC 
Se RR OR Blin | 
000000006 90 Of F rE CALLS #1, DBGSSTA_LOCK_SYMID 
6 10 AE DO 001 MOVL §§NEW_VALPTR, ~R6 
20 Ab 54 p 109 MOVL VALOE, 32(R6) 
50 67 A 00100 MOVZBL (VARNAME), RO 
50 4 C6 119 DIVL 
01 AO 9F 0011 PUSHAB 1(RO) 
000000006 0 gi FB 0116 CALLS #1, DBGSGET_MEMORY 
9 p 11 MOVL RO, NEW _NAME 
0 : 9A MOV ZBL CVARNAME) , RO 
Be 67 28 28 001 MOVC3 RO, (VARNAME), (NEW_NAME) 
08 AC DD 00129 PUSHL MESSAGE_VECT 
BME OL bots Cla. Otsp) 
56 DD 00131 PUSHL R 
' 05 DD 00133 PUSHL @# 
58 DD 00135 PUSHL NEW_NAME 
000000006 00 06 FB 00137 CALLS #6, DBGSDEF_SYM_ADD 
03 50 : 0013E 11$:  BLBS RO. 12$ 
O0F2 31 00141 BRW 20 
50 ee 00 00144 12$: MOVL DBG$GL_CISHEAD, RO 
53 67 9A 00149 13S: MOVZBL (VARNAME), SIZE 
50 5 04 C7 0014C DIVL3 #4, SIZE, RO 
01 AO SF 00150 PUSHAB 1(RO) 
000000006 00 01 FB 00TS CALLS #1, DBGSGET_TEMPMEM 
57 20 DO 0015A MOVL RO. VARNAME 
52 D6 00150 INCL R 
56 68 00 0015F MOVL. OD 6861 CISHEAD, R6 
67 1c 86 52 O01 6¢ MOVC3 R2, @28(R6), (VARNAME) 
1¢ Ab DD 0016 PUSHL ) 
000000006 00 or FB 0016, CALLS #1, DBGSREL_MEMORY 
E BLBS | BOUNDS MATCA, 14$ 
11 9 0171 A 
81 bb oOtr6 ee pe 
000286¢3 8F DD 80178 PUSHL #165571 
000000006 0 03 FB 0017 CALLS #3, LIBSSIGNAL 
50 6B DO 00185 14$:  MOVL BGSGL_CISHEAD, RO 
ee eee gg 
18 AO MF OBE DECL #4 (RO) 
0c 15 001 BLEQ 8$ 
60 10 AO BO 0195 15$:  MOVW 18(RO) (RO) 
04 AO AO 20 O19 MOVL  12(RO). 4(RO) 
OODE 31 0019 BRW 24$ 
50 68 00 O19 16$: MOVL DBGSGL_CISHEAD, RO 
51 02 AO 9A OO1A2 MOVZBL 2(RO),~R1 
05 51 91 1A CMPB ORT, #5 
14 13 1A Bear ~=sé«é7$ 
04 51 91 O01AB CMPB RT, 4 
OF 13 OO1A Bea, ~=—sé 7G 
06 1 91 0018 CMPB RI, #6 
OA 13 O18 pea. ==s«a7$ 
07 1 91 001B CMPB eR, #7 
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10 hh: “11 Bliss-32 V4.0-742° (6) | 
if fen-t9 PitFi13 — Ebkeus. SacSoeonexcte 639, 1 
enbas 7s £0963, 
woe=b06 ee: Sonus 
08 12 00180 ELS aS, 12(R0), (SP) Dic 
OC A ; c§ ite RAS ‘ ent ter ag : 095 
7F 00000006 00 68 06 1B 188: HOVE = BBGSGL_CISHEAD, at 
01 Of 2 3 apis GOVE ERO), RAB.PTR : 0960 | 
4 AO DO 0014 MOVE GOCRAB_PTRY, FAB_PTR ; 0961 
emote BHR | GE Bebe baa oe 
1F 000000 0G 0 MOVAB x TR) . 
50 000000 ga bE IEA PUSHL autre pra) =(SP) : 
i AS OR 1ED PUSHL PHRASE ; 
ts 83 bb O1F3 PUSHE #163979 
PUSHL T_INFO : 0970 
00028088 BF DD O0rF oe Pb verry wt pyre pa, 
woes Te 1 68 0 03 198: SL n DBGSREC MEMORY ; 097 
000000806 09 52 DD 19 CALLS “$rescvose : 0977, 
000000006 00 9} Dp 09 4 S11 ee “DBGSREL_MEMORY 0978, 
000000006 00 9} Dp 09 20 cut #1 , DBGSREL MEMORY ; 0982 
1 F $ 
000000006 00 08 nt D $35 ton a. DBGSDEF_PR_EXIT pe 
000000006 99 gi ts 09 : os. BBS «RO at Poses 
50 Of Oe 00939 BLeS EXIT_FLAG, 238 : 0995 
04 8S BB 0058 Abu Eee Tle e PAD. RO 
56 80 $1 00341 CHPB (RO) "5 = 
05 4 G0943 MOVE #1 WHILE FLAG : 0999 
52 oT 00 00847 EXYZV #1, #1. 1B(RO), COND ; 0995 
12 a0 01 ne 00259 he: Gale pias : 1009 
: $2 BO 00986 388; OVE DBGSGL CISHEAD, RO paee: 
aR 50D 09 HH ROVE (RO). DBGSGL_CISHEAD : 1014 
3a 08 AD 0 029A PUSHL TEMP : 1016 
“8 ay Pe Bh 6 CALLS #1 DBGSREL MEMORY : 1016 
000000006 99 04 AC eB Bsor BtBe WHILE FLAG, 248 i 1988 
Of 53 £9 0 $f ROVL DBGBEL CI SHEAD, RO i 1086 
H 16 RO DO 00974 ROVW SURO). CRO) : 1031 
* 8 4 AO BO 00279 MOVE #1 RO 
0 xe Of BO 00970 248: ROVE ; 


° 
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GLOBAL ROUTINE DBGSNGET_ADDRESS (ADDR_EXP_DESC, ADDRESS, TYPE, PROLOG_FLAG, MESSAGE_VECT) = 
les 


i FUNCTIONAL DESCRIPTION: 


$38 


This routine is called with a descriptor, as returned 
by the Address gtk te Interpreter, to obtain the address bound to the 
entity described by the descriptor. 

FORMAL PARAMETERS: 


ADDR_EXP_DESC = A Longword gentetning he address of either a 


value or primary descriptor 
ADDRESS - The address of a quadword to contain the resulting 
byte address and bit offset 
TYPE - The address of a longword to contain the type of the address 


(No longer used). 


PROLOG_FLAG - A flag set to true to indicate this routine is 
called from SET BREAK/TRACE, SHOW BREAK/TRACE, where 
routine break address is taken from the primary 
routine/entry rst entry. 


DOODOODODOODOODOOOOOOODOOONO 
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93 MESSAGE _VECT - The address of a longword to contain the address of a 
33 message argument vector upon detection of errors 
93 IMPLICIT INPUTS: 

339 

937 064 NONE 

938 065 

939 4 IMPLICIT OUTPUTS: 

940 06 

a} +3 On error, a message argument vector is constructed and returned. 
308 879 ROUTINE VALUE: 

944 71 

eee Or6 An unsigned integer longword completion code 

s7 Ore COMPLETION CODES: 

OEP $4) STSSK_SUCCESS (1) - Success. Address and type returned. 

951 $38 STSSK_SEVERE (4) - Failure. No type and/or address obtained. 
336 344 Message argument vector returned. 

95 80 

954 +t SIDE EFFECTS: 

955 0 § 

329 38 NONE 

95 8 4 

958 5 -- 

959 0 $ BEGIN 

960 0 MAP 

961 088 ADDRESS: REF VECTORC,LONG), ; y 

306 344 ADDR_EXP_DESC: REF DAGSVALOESC; ! Points to a new style Descriptor. 
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13-30-38 OFFS DEBUG. SRC JDBGNEXCTE.832;1 . H| 
> 964 1091 LOCAL 
; 965 1 5 VMS_DESC: REF DBGSSTG_DESC, 
3 298 109 RSTPTR: REF RSTSENTRY: 
: 3e 1998 
; 369 1 39 ! If the flag is set, take the break address from Bout the /totry RST 
: 44 : M } in Primary. (The only way this flag can be set is in DBGEVENT.) 
; 978 1999 if .PROLOG_FLAG 
: 3h 1109 THEME GIN 
: 975 1108 RSTPTR = «ADDR, EXP DESCCDBGSL HDR S¥MIDO3; 
; 976 11 ADDRESSEO} = ,RSTPTRERSTSL_BREAKADOR); 
3; 97 1108 ADDRESS(1) = 0; 
3; wT 1105 RETURN sts$k_success; 
s oF 1189 END; 
ae 
; + BY Check whether we are looking at a Primary Descriptor. 
; 984 1111 if .ADDR_EXP_DESC CDBGSB_DHDR_TYPE] EQL DBGS$K_PRIMARY_DESC 
; 985 1116 THE 
: 986 111 BEGIN 
Bo 
: 989 1118 t Allocate temporary memory for the VMS descriptor. 
; 991 1118 VMS_DESC = DBGSGET_TEMPMEM (3); 
; 995 113 ! Call the routine that fills in the VMS descriptor. 
: 995 1128 DBGSMAKE_VMS_DESC (.ADDR_EXP_DESC, .VMS_DESC); 
: 399 1154 tet 
: 44 i 5 } Check for Volatile Value Descriptor. 
: 1000 1187 ELSE 
; H's iy : 4 zAOOR EP WES CDBG$B_ODHDR_TYPE] EQL DBGSK_V_VALUE_DESC 
; 1098 Hi VMS_DESC = ADDR_EXP_DESC CDBGSA_VALUE_VMSDESC] 
: Hh i § } Any other kind of descriptor is an error. 
; 1909 1134 ELSE 
3 H+ 4 i 5 SOBG_ERROR ("DBGNEXCTE\DBGSNGET_ADDRESS unexpected descriptor type"); 
: 1910 11 $ ' FILL in the output parameter to point to the 
: 19t) i 3 (byte address, bit offset) quadword in the VMS descriptor. 
; 1918 1140 ADDRESSCO] = .VMS DESCEDSCEA POINTER); 
; oie ei UF gv =DESCCOSCSE_CLASS NEG DSCSK_CLASS_UBS 
Hes HF qagttmenens = 8 
; 1018 1145 ADDRESS(1) = .VMS_DESCCDSC$L_POS); 
: 1020 1143 RETURN sts$k_success; 


ae ee 


; 1021 1148 #1 END; 


IRechate 0st:1) WMGLL hese 


! End of dbg$nget_address 


24 47 «42 «46 & 4 43 58 45 4€ 47 42 44 35 034 P.AAF 
6 75 20 53 3 3 33 44 44 41 SF 54 rh: 47 4 $04 
65 4! 78 6 B82 
72 6F 74 70 69 72 63 73 65 64 20 $6 § 74 6 05 
65 70 79 74 20 0006 
0004 00000 
ie 10 AC €E9 00002 
5 04 AC 00 00006 
51 0 AO DO QOO0A 
50 0 AC 00 BOS 
et Be! 
00000079 += 8F 06 BC 08 10 ED 0018 18: 
1A 12 000 
03 0D B08 4 
000000006 00 01 FB 00026 
52 50 00 00020 
52 00 000 
04 AC 0D 000 
000000006 00 96 FB 000 
11 0003¢ 
00000083 = 8F 046 BC 08 10 ED 000 f 2$: 
07 12 Bhe 
een 2 he Be 
00000000" EF 9F 00051 3$: 
1 0D 00057 
00028362 F 0D 00059 
000000006 00 03 fe O05F 
08 BC 04 A2 00 00066 4$ 
0 88 AC D0 00068 
0D 0 Ag 91 4 
05 13 3 
oH Bae 
04 Ad 08 Ae +4 Ber gs: 
50 01 D 8 O7F 7$: 
04 00082 


; Routine Size: 131 bytes, Routine Base: 


DBGSCODE + 059F 


‘End of module 


»PSECT 
-ASCII 


ASCII 


DEBUG. SRC 


DBGSPLIT,NOWRT, SHR, PIC,0 


\SDBGNEXCTE\<92>\DBGSNGET_ADDRESS unexpe\ 


\cted descriptor type\ 


DBGSNGET_ADDRESS, Save R2 
PROLOG _FCAG 

ADDR_ERP_DESC, RO 

12(R0), RSTPTR 

ADDR R 

4O(RSTPTR), (RO) 

#16. #8, @ADDR_EXP_DESC, #121 
a3 

#1, DBGSGET_TEMPMEM 

RO, VMS_DESC 

VMS_DES 

ADDR_EXP_DESC 

#2, BBGSMAKE_VMS_DESC 

#16, #8, @ADDR_EXP_DESC, #131 


#20, ADDR_EXP_DESC, VMS_DESC 


64706 
#3, LIBSSIGNAL 
4(VMS_DESC), @ADDRESS 


ADDRESS, R 
3(VMS_DESC), #13 
4 (RO) 

B(VMS_DESC), 4(RO) 
#1, RO 


4 
DBGNEXCTE.632;1 


row 


Pe Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Se Se Fe Se Fe Ge Ge Se Se 


; r 
vor~000 ieSeect98e O4HSe1) | YAEGLE Sh sdeeytadZ. ae 


~EXTRN LIBSSIGNAL 


H PSECT SUMMARY 
3 Name Bytes Attributes 
$ DBGSPLIT 196 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSCODE 15 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; Library Statistics 
Be Ne eee) ee a Smee == FyEROLE comecece Pages Processing 
: File Total Loaded Percent Mapped Time 
: .$255$0 UAZ8 :PSySt182L1 .L32;1 18619 0 1000 00:01.9 
; $532$pUA38 DEBUG. OBJ JSTRUCDEF 32:1 32 i 0 7 90:00. 
: 7$255$pu 8: EBUG.0BJ DBGLIB. 13231 154 16 1 97 0:01.9 
; —$255$DUA EBUG.OBJJDSTRECRDS.L32;1 
3 418 0 31 00:00.4 
3 ene age: DEBUG.0BJJDBGMSG. Lg: 1 386 4 1 $$ 00:00.3 
; _$255$D0UA28: (DEBUG.0BJ JDBGGEN.L32;1 150 2 1 1 00:00.3 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:0BGNEXCTE/OBJ=O0BJ$:DBGNEXCTE MSRC$:DBGNEXCTE/UPDATE=(ENHS$ : DBGNEXCTE) 
Size: 1570 code + 106 data bytes 
Run Time 0:32. 
Elapsed Hass siete 


Lines/CPU Min: 146 
Lexemes/CPU-Min: 12100 

Used: 261 pages 
Compilation Complete 
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